%
% QUESTION: what happens if your machine tries to % save a file called lpt1.html in a FAT file system?% ANSWER: it goes straight to the printer. Since this % is a postscript file, it will print a cute message as % a result of a mouse click. %
%
% Ransom note writer. Version 1.00 % % (C) Copyright 1992 Diomidis Spinellis. All rights reserved. % You can use and copy this program as long as the notice above % remains intact. Modified copies must be clearly marked as such. % Send comments, threats, corrections etc. to dds@doc.ic.ac.uk %% % % Put here the ransom note you want % Use the | symbol to generate new lines. /note (Dear Web User: | | DigiCrime has not | taken control of | your printer. It just | seems that way. | | Remember - it's a | feature rather than | a bug. ) def % remember - it's a joke and not a real threat! % Left margin position /left 30 def % Right margin position /right 510 def % Line advance /lineskip -40 def % Print the string % string ransom - /ransom { {chr ransomchar} forall } def % Convert a character code to a string % int chr string /chr { ( ) dup 0 3 index put exch pop } def % Draw a black filled box for the bounding box of the character % char box - /box { gsave gsave true charpath pathbbox grestore 1 add /ury exch def 1 add /urx exch def 1 sub /lly exch def 1 sub /llx exch def newpath llx lly moveto urx lly lineto urx ury lineto llx ury lineto closepath 0 setgray fill grestore } def % Display a single ransom character % character ransomchar - /ransomchar { dup (|) eq { pop crlf } { randfont 20 random 30 add scalefont setfont dup gsave 5 random rotate 3 random 1 sub 3 random 1 sub rmoveto dup ( ) eq { [ {show} ] } { [ { show } { show } { true charpath stroke } { true charpath 10 random 20 div setgray fill } { dup box 1 setgray show } ] } ifelse randarray exec grestore stringwidth pop 0 rmoveto format } ifelse } def % Return a random value 0 <= r < int % int random int /random { rand exch mod } def % Return a random element from the array % array randarray any /randarray { dup length random get } def % Return a random font % - randfont font /randfont { [ /Times-Roman /Times-Bold /Times-Italic /Times-BoldItalic /Helvetica /Helvetica-Bold /Helevetica-Oblique /Helevetica-BoldOblique /Times-Roman /Times-Bold /Times-Italic /Times-BoldItalic /Helvetica /Helvetica-Bold /Helevetica-Oblique /Helevetica-BoldOblique /Courier /Courier-Bold /Courier-Oblique /Courier-BoldOblique ] randarray findfont } def % Do a carriage return / line feed % - crlf - /crlf { currentpoint exch pop left exch moveto 0 lineskip rmoveto } def % Move to a new line if we are at the end of it % - format - /format { currentpoint pop right gt {crlf} if } def clear erasepage initmatrix left 700 moveto .5 setlinewidth note ransom showpage